home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pull70.zip / PULLSHEL.ZIP / PULLSHEL.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-21  |  1KB  |  41 lines
  1. { ========================================================================== }
  2. { PullShel.pas - A shell program to develop any            ver 7.0, 06-21-93 }
  3. {                application of pull-down menus.                             }
  4. {   Copyright (c) 1988,1993 James H. LeMay, All rights reserved.             }
  5. { ========================================================================== }
  6.  
  7. {$i pulldefs.inc }
  8.  
  9. {$M 16384,14000,14000 }
  10.  
  11. program PullShell;
  12.  
  13. uses
  14.   Crt,Qwik,Wndw,Pull,
  15.   PullWork;    { You MUST include this unit! }
  16.  
  17. procedure DisplayScreen;
  18. begin
  19.   WWrite ( 1, 1,'PULLSHELL v7.0            Multi-level Pu'+
  20.                 'll-down Menus       Copr 1993  J H LeMay');
  21.   ShowTopLine;
  22.   SetWindowModes (PermMode);
  23.   MakeWindow (3,1,CRTrows-3,CRTcols,White+BlueBG,White+BlueBG,DoubleBrdr,
  24.               Window1);
  25.   SetWindowModes (0);
  26.   WWriteC ( 2,'This is my first pull-down menu program');
  27. end;
  28.  
  29. begin
  30. { Qsnow := false; }
  31.   InitPull (LightGray,false); { <<-- Be sure you do this!! }
  32.   DisplayScreen;
  33.  
  34.   GotoKeyDispatcher;          { <<-- All keyboard entries go through here! }
  35.  
  36.   AccessWindow (Window0);
  37.   WClrScr;
  38.   WGotoRC (CRTrows,1);
  39.   SetCursor (CursorInitial);  { Restore start up cursor }
  40. end.
  41.